﻿Imports Phila
Imports Phila.Sql
Imports Phila.CommonClasses

Public Class AboutUs
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If IsPostBack = False Then
                'ltrBreadcrumb.Text = getBreadcrumb() & " &rarr; About"
                Dim txt As Array
                Dim Keywords As New HtmlMeta()
                Dim Desc As New HtmlMeta()
                txt = RetriveData("select Name, Summary, Description, MetaTitle, MetaKeywords, MetaDescription from ptn_Pages where IsActive=1 and Id=1", 5)
                ltrTitle.Text = txt(0)
                Page.Header.Title = txt(3)
                Keywords.Name = "Keywords"
                Keywords.Content = txt(4)
                Desc.Name = "Description"
                Desc.Content = txt(5)
                Page.Header.Controls.Add(Desc)
                Page.Header.Controls.Add(Keywords)
                ltrDescription.Text = Server.HtmlDecode(txt(2))
                Session("Breadcrumb") = "&nbsp;&raquo;&nbsp;About Us"
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

End Class